home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / exampleCode / MP / kernel_switch / readenv.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-08-02  |  1.4 KB  |  56 lines
  1. /*
  2.  * Copyright 1993, 1994, Silicon Graphics, Inc.
  3.  * All Rights Reserved.
  4.  *
  5.  * This is UNPUBLISHED PROPRIETARY SOURCE CODE of Silicon Graphics, Inc.;
  6.  * the contents of this file may not be disclosed to third parties, copied or
  7.  * duplicated in any form, in whole or in part, without the prior written
  8.  * permission of Silicon Graphics, Inc.
  9.  *
  10.  * RESTRICTED RIGHTS LEGEND:
  11.  * Use, duplication or disclosure by the Government is subject to restrictions
  12.  * as set forth in subdivision (c)(1)(ii) of the Rights in Technical Data
  13.  * and Computer Software clause at DFARS 252.227-7013, and/or in similar or
  14.  * successor clauses in the FAR, DOD or NASA FAR Supplement. Unpublished -
  15.  * rights reserved under the Copyright Laws of the United States.
  16.  */
  17. #include <stddef.h>
  18. #include <stdlib.h>
  19. #include <string.h>
  20.  
  21. void readenv_( envnam, envval, srlen, retlen )
  22. char *envnam, *envval;
  23. int *srlen, *retlen;
  24. {
  25.  
  26.     char *strnam = malloc( *srlen+1);
  27.     char *strval;
  28.     char *null;
  29.     null = (char *) 0;
  30.  
  31.     /* convert FORTRAN string to C format */
  32.     memcpy( strnam, envnam, *srlen);
  33.     strnam[*srlen] = '\0';
  34.  
  35.     /* read env variable */
  36.  
  37.     if ((strval= getenv( strnam)) == null) {
  38.     *retlen = 0;
  39.     return;
  40.     }
  41.  
  42.     *retlen = strlen( strval ); /* return variable length */
  43.     memcpy ( envval, strval, *retlen); 
  44.  
  45. }
  46.  
  47.  
  48. int  charcmp_(s1, s2)
  49. char *s1, *s2;
  50. {
  51.  
  52.     return strcmp(s1,s2);
  53. }
  54.     
  55.  
  56.